********************************************************************************
*
**#	Appendix	A.3: Distribution of Defendants' Age 
*
********************************************************************************

use "${DATA}/data_DV.dta", clear

* 	Calculate means 

    sum     age if dv_judge == 1    
	local 	sp_avg: di %2.1f r(mean) 
    sum     age if dv_judge == 0    
	local 	gn_avg: di %2.1f r(mean) 

# d ; 

graph twoway 
	(kdensity age if dv_judge == 1 & dv_case == 1, 
		lwidth(medthick) lcolor(black)	) 
	(kdensity age if dv_judge == 0 & dv_case == 1,
		lwidth(medthick) lpattern(dash)  lcolor(black*0.8)	) 
	,
	ytitle("") 
	ylab(,angle(0) nogrid)
	xtitle("Defendant's Age")	
	note(
		"Kernel Density Estimates" 
		"Avg age for defendants in DV courts = `sp_avg' and in General courts = `gn_avg'.", 
		margin(l-8 t+2 b-2))
	legend(
		on size(small) pos(2) ring(0) order(1 2) 
		label(1 DV Court) label(2 General Court) col(1) region(style(none)))
	xsize(16) ysize(20) 
	;

# d cr 

graph save "${OUTPUT}/figA3.gph", replace 

********************************************************************************
*	End of File
********************************************************************************
